(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      3816,        125]
NotebookOptionsPosition[      3362,        104]
NotebookOutlinePosition[      3699,        119]
CellTagsIndexPosition[      3656,        116]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.518975918776375*^9, 3.518976029462144*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Array", "::", "ilsmn"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Single or list of non-negative machine-sized integers \
expected at position \[NoBreak]\\!\\(2\\)\[NoBreak] of \[NoBreak]\\!\\(Array[\
\\(\\(\\(\\(2\\/\[Pi] &\\)\\), \[CapitalNu]\\)\\)]\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ilsmn\\\", \
ButtonNote -> \\\"Array::ilsmn\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.518975954835676*^9, 3.51897598881628*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(1 + \[CapitalNu]\\)\
\[NoBreak] is neither an integer nor a list of integers. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/pspec\\\", \
ButtonNote -> \\\"Set::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.518975954835676*^9, 3.518975988819556*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"2", "/", "Pi"}], ")"}], "^", "2"}], ",", 
           "\[CapitalNu]"}], "]"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "*", 
            RowBox[{"\[Delta]", "/", "\[Pi]"}]}], ")"}], "^", "2"}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[CapitalNu]", "*", 
            RowBox[{"2", "/", "Pi"}]}], "+", 
           RowBox[{"2", "*", 
            RowBox[{"\[Delta]", "/", "Pi"}]}]}], ")"}]}], ")"}]}], " ", "-", 
      " ", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "/", "Pi"}], ")"}], "^", "2"}], ",", "\[CapitalNu]"}],
         "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "\[CapitalNu]", "*", 
         RowBox[{"2", "/", "\[Pi]"}]}], ")"}]}]}], ")"}], "/", "\[Delta]"}], 
   ",", 
   RowBox[{"\[Delta]", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518976034834395*^9, 3.518976247022794*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   RowBox[{"\[Pi]", " ", "\[CapitalNu]"}]]}]], "Output",
 CellChangeTimes->{{3.518976180685125*^9, 3.518976184777733*^9}, {
  3.518976242666071*^9, 3.51897624755817*^9}}]
}, Open  ]]
},
WindowSize->{740, 607},
WindowMargins->{{Automatic, 32}, {Automatic, 34}},
FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 92, 1, 30, "Input"],
Cell[674, 25, 599, 11, 70, "Message"],
Cell[1276, 38, 509, 10, 24, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1822, 53, 1302, 41, 69, "Input"],
Cell[3127, 96, 219, 5, 48, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

